object MainDialog: TMainDialog Left = 267 Top = 212 BorderStyle = bsDialog Caption = 'Main Dialog' ClientHeight = 382 ClientWidth = 592 Font.Color = clBlack Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] PixelsPerInch = 120 Position = poScreenCenter TextHeight = 16 object Bevel1: TBevel Left = 9 Top = 0 Width = 581 Height = 70 Style = bsRaised end object Label1: TLabel Left = 169 Top = 9 Width = 410 Height = 51 Caption = 'These demos display some of Printit'#39's unique printing abilities.' + ' They were specifically created out of user demand to answer que' + 'stions on Printit and show the more advanced topics' Font.Color = clPurple Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Printit: TLabel Left = 25 Top = 9 Width = 87 Height = 38 Caption = 'Printit' Font.Color = clYellow Font.Height = -33 Font.Name = 'Times New Roman' Font.Style = [fsBold, fsItalic] ParentFont = False end object Panel1: TPanel Left = 12 Top = 76 Width = 485 Height = 297 TabOrder = 0 object Label3: TLabel Left = 12 Top = 9 Width = 461 Height = 48 Alignment = taCenter Caption = 'The source for each demo is in the form # printed next to them e' + '.g. Demo 01 is in unit FDemo01, Demo 10 is in unit FDemo10' Font.Color = clBlue Font.Height = -15 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False WordWrap = True end object ListBox1: TListBox Left = 12 Top = 56 Width = 461 Height = 230 Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ItemHeight = 17 Items.Strings = ( '01 Actual Font Styles and Sizes - As supplied by the Printer Dri' + 'ver ' '02 Multiple TPanel components - Combined size larger than page' '03 Printing the Active Page on a TNotebook' '04 Print a Window' '05 Print Invoice #1 - View or direct to printer' '06 Print a form with Fishes from a Table' '07 Combined Window and Grid Print ' '08 Grid Print' '09 Grid and Window on same page - View and Direct Print to print' + 'er' '10 Print current Printer Information' '11 Print Fonts of currently selected printer' '12 Simple Pie Chart' '13 Print a few shapes' '14 A Fax Form example' '15 Various components printed' '16 Print Grid backdrops' '17 Print Invoice # 2' '18 Print a customised letter' '19 RadioButtons, GroupBoxes, CheckBoxes etc.' '20 Print a customised chain letter' '' '') ParentFont = False TabOrder = 0 OnDblClick = ListBox1DblClick end end object View: TButton Left = 505 Top = 121 Width = 85 Height = 32 Caption = '&View' Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = ViewClick end object Exit: TButton Left = 503 Top = 260 Width = 87 Height = 33 Caption = '&Exit' Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = ExitClick end object Printer: TButton Left = 505 Top = 76 Width = 85 Height = 34 Caption = 'Set &Printer' Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = PrinterClick end object PrinterSetupDialog1: TPrinterSetupDialog Left = 528 Top = 320 end end